1000 REM PROGRAM TOCREATE FILE "KE.1" ONDISK
1002 REM MODIFIED FOR 1ST GENERATION ROM
1004 REM BY J.PATERSON, HOUSTON, TX
1006 REM 9/4/86
1007 REM CHANGES IN LINES 1030,1040,1060,1070,1550,1900,4450,4470
1008 REM LINE 4475 ADDED
1030 FOR J=1 TO 2753: READ X: CH=CH+X: NEXT
1040 IF CH<>276696 THEN PRINT "CHECKSUM ERROR": END
1060 OPEN 8,8,8,"0:KE.1,P,W"
1070 FOR J=1 TO 2753: READ X
1550 DATA 108,  27,   0,   0,  16, 129,  47,  10
1900 DATA 129,  32,   1,  10,  96, 136,  97,  48
4450 DATA  97, 162,   0, 129, 189,   6,  10,  98
4470 DATA  97, 144, 245,  96,  96,  97, 169,   1
4475 DATA  97, 145, 243,  96,  96, 112,  75,  69